home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / disk / bakup / mrbk220.lha / Rexx / notealert.mrbk < prev    next >
Text File  |  1991-01-12  |  743b  |  41 lines
  1. /* notealert.mrbk */
  2. /* This simple program runs tests MRBackup's "note alert" requester. */
  3.  
  4. signal on ERROR
  5. signal on BREAK_C
  6.  
  7.  
  8. options results
  9.  
  10. if ~(Show('P', 'MRBackup_#1')) then do
  11.     say "You must run MRBackup first. With a little work, you could"
  12.     say "get this ARexx script to do it for you."
  13.     exit 1
  14. end
  15.  
  16. address "MRBackup_#1"
  17.  
  18. poptofront
  19.  
  20. 'notealert "This message is coming to you courtesy of ARexx."'
  21.  
  22. exit 0
  23.  
  24.  
  25. /*------------------------------------------------------------------*/
  26.  
  27. break_c:
  28.  
  29. say "*** Control-C recieved.  Stopped by user. ***"
  30. exit 5
  31.  
  32. /*------------------------------------------------------------------*/
  33.  
  34. error:
  35.  
  36. say "Error"
  37. exit 6
  38.  
  39. /*------------------------------------------------------------------*/
  40.  
  41.